Compile & Link When technology complements business Examples

Copyright © 1987-2005  SimoTime Enterprises, LLC  All Rights Reserved http://www.simotime.com

Introduction
(Next) (Previous) (Return-to-Top)

This suite of programs provides sample JCL for compiling and linking programs on the mainframe.

The source code, data sets and documentation are provided in a single zipped file called UTLDAT03.ZIP. This zipped file may be downloaded from the SimoTime Web site. The file names have file extensions. When uploaded to the mainframe from the PC the file extension is dropped.

Compile a COBOL Program
(Next) (Previous) (Return-to-Top)

The following is an example of the mainframe JCL (UTCOBCOM.JCL) needed to compile a COBOL program.

The job may be executed on the mainframe as an MVS batch job. The JOB and DD statements will require modification prior to execution on a different mainframe environment. The job will not execute on the PC running Micro Focus Mainframe Express. The standard compile process for Mainframe Express should be used.

//UTCOBCOM JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2003 All Rights Reserved             *
//*                                                                   *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Compile COBOL program (COBOL2), create an object member
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//         SET MEM=CBLDATC1
//*
//COBS1    EXEC COB2UC,
//             PARM='MAP,APOST,NOOPT,SZ(MAX),
//             NOTERM,DATA(31),LIB,SOURCE'
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=CSI01.AAI.MACLIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBCPY1
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSIN    DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBOL(&MEM)
//*

The preceding mainframe job will just create an object member and place the member in the PDS specified by the SYSLIN DD statement. It is a compile only. The next section provides an example of a compile and link.

Compile and Link a COBOL Program
(Next) (Previous) (Return-to-Top)

The following is an example of the mainframe JCL (UTCOBLNK.JCL) needed to compile and link a COBOL program and create an object member.

The job may be executed on the mainframe as an MVS batch job. The JOB and DD statements will require modification prior to execution on a different mainframe environment. The job will not execute on the PC running Micro Focus Mainframe Express. The standard compile process for Mainframe Express should be used.

//UTCOBLNK JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2003 All Rights Reserved             *
//*                                                                   *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Compile and Link COBOL program, create a load member
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//         SET MEM=SIMODATE
//*
//COBS1    EXEC COB2UC,
//             PARM='MAP,APOST,DYN,NOOPT,SZ(MAX),
//             NOTERM,DATA(31),LIB,SOURCE'
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBCPY1
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSIN    DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBOL(&MEM)
//*
//LKED     EXEC PGM=IEWL,REGION=2M,PARM=(XREF,LET,LIST,CALL),
//             COND=(8,LT)
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSLMOD  DD  DISP=SHR,DSN=SIMOTIME.DEMO.LOADLIB1(&MEM)
//OBJECT   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*

The preceding mainframe job will create a load member and place the member in the PDS specified by the SYSLMOD DD statement.

Summary
(Next) (Previous) (Table-of-Contents)

The purpose of this suite of programs is to provide examples for creating, populating, maintaining and deleting mainframe files and data sets.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

Permission to use, copy, modify and distribute this software for any non-commercial purpose and without fee is hereby granted, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software.

SimoTime Enterprises makes no warranty or representations about the suitability of the software for any purpose. It is provided "AS IS" without any express or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software.

Links to Similar Pages of Interest
(Next) (Previous) (Table-of-Contents)

This document provides a quick summary of the  File Status Key  for VSAM data sets and QSAM files.

Check out  The JCL Connection  for more mainframe JCL examples.

Check out  The SimoTime Library  for a wide range of topics for Programmers, Project Managers and Software Developers.

To review all the information available on this site start at  The SimoTime Home Page .

Comments or Suggestions
(Next) (Previous) (Table-of-Contents)

If you have any questions, suggestions or comments please call or send an e-mail to: helpdesk@simotime.com

About SimoTime Enterprises, LLC
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned, Limited Liability Corporation located in Novato, California. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complimentary manner with existing corporate mainframe systems. Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com